home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / ISLPCB14.ZIP / SITELIST.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1995-11-09  |  20.7 KB  |  1,110 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER003
  20.     Integer  INTEGER004
  21.     Integer  INTEGER005
  22.     Integer  INTEGER006
  23.     Integer  INTEGER007
  24.     Integer  INTEGER008
  25.     Integer  INTEGER009
  26.     String   STRING004
  27.     String   STRING005
  28.     String   STRING006
  29.     String   STRING007
  30.     String   STRING008
  31.     String   STRING009
  32.     String   STRING010
  33.     String   STRING011
  34.     String   STRING012
  35.     String   STRING013
  36.     String   STRING014
  37.     String   STRING015
  38.     String   STRING016
  39.     String   TSTRING017(100)
  40.     String   TSTRING018(250)
  41.     String   TSTRING019(250)
  42.     Declare  Procedure PROC001()
  43.     Declare  Procedure PROC002(Var String STRING001, Var String STRING002, Var String STRING003)
  44.     Declare  Procedure PROC003()
  45.  
  46. ;------------------------------------------------------------------------------
  47.  
  48.     Goto LABEL001
  49.     End
  50.  
  51. ;------------------------------------------------------------------------------
  52.  
  53.     Procedure PROC001()
  54.  
  55.     Integer  INTEGER001
  56.     Integer  INTEGER002
  57.     Byte     BYTE001
  58.  
  59.     INTEGER001 = GetDrive()
  60.     INTEGER002 = Os()
  61.     FOpen 1, PPEPath() + "FTP.TXT", 0, 2
  62.     BYTE001 = FTell(1)
  63.     FClose 1
  64.  
  65.     EndProc
  66.  
  67.  
  68. ;------------------------------------------------------------------------------
  69.  
  70.     Procedure PROC002(Var String STRING001, Var String STRING002, Var String STRING003)
  71.  
  72.     STRING001 = "NO"
  73.     STRING002 = "UNREGISTERED"
  74.     STRING003 = "UNREGISTERED"
  75.  
  76.     EndProc
  77.  
  78.  
  79. ;------------------------------------------------------------------------------
  80.  
  81.     Procedure PROC003()
  82.  
  83.     Color 0
  84.     Cls
  85.     AnsiPos 25, 10
  86.     Print "@X0FSHAREWARE EVALUATION VERSION"
  87.     AnsiPos 22, 12
  88.     Print "@X0ECopyright 1995 (c) Shuttle Software"
  89.     AnsiPos 30, 14
  90.     Print "@X0EAll Rights Reserved"
  91.     Delay 70
  92.  
  93.     EndProc
  94.  
  95.     :LABEL001
  96.     STRING009 = ""
  97.     STRING005 = ""
  98.     STRING006 = ""
  99.     STRING007 = ""
  100.     STRING012 = ""
  101.     STRING011 = ""
  102.     STRING014 = ""
  103.     STRING015 = ""
  104.     STRING016 = ""
  105.     STRING004 = ""
  106.     STRING010 = "NO"
  107.     STRING013 = "N"
  108.     STRING008 = "N"
  109.     INTEGER007 = 0
  110.     INTEGER008 = 0
  111.     INTEGER009 = 0
  112.     INTEGER006 = 0
  113.     INTEGER005 = 0
  114.     INTEGER003 = 0
  115.     INTEGER004 = 0
  116.     PROC001()
  117.     If (AnsiOn()) Then
  118.         Log "-=≡[ Internet Site List Entered ]≡=-", 0
  119.         PROC002(STRING016, STRING014, STRING015)
  120.         Gosub LABEL002
  121.         If (STRING016 <> "YES") PROC003()
  122.     Else
  123.         PrintLn "This program requires that your ANSI support is enabled!"
  124.         Wait
  125.     Endif
  126.     End
  127.     :LABEL002
  128.     While (Upper(STRING006) <> "Q") Do
  129.         STRING005 = ""
  130.         STRING006 = ""
  131.         STRING007 = ""
  132.         Color 0
  133.         Cls
  134.         PrintLn "@X00"
  135.         PrintLn "@X0E     @X0B▐@X1B ┌────────────────────────────────────────────────────────────────@X10┐@X1B @X08▌@X0B"
  136.         PrintLn "@X0E     @X0B▐@X1B │@X1E                    INTERNET SITE LIST 1.4                   @X1B @X1E  @X10│@X1B @X08▌@X0B"
  137.         PrintLn "@X0F▄▄▄▄▄@X0B▐@X1B │@X1E                                                                @X10│@X1B @X08▌@X07▄▄@X0F▄▄@X0B"
  138.         PrintLn "@X0E▄▄▄▄▄@X0B▐@X1B │@X1E                                                                @X10│@X1B @X08▌@X06▄▄@X0E▄▄@X0B"
  139.         PrintLn "@X0D▄▄▄▄▄@X0B▐@X1B └@X10────────────────────────────────────────────────────────────────┘@X1B @X08▌@X05▄▄@X0D▄▄@X0B"
  140.         AnsiPos 17, 5
  141.         Print "@X1FSysOp@X17: @X1F", STRING014
  142.         AnsiPos 43, 5
  143.         Print "@X1FBBS@X17: @X1F", STRING015
  144.         AnsiPos 1, 7
  145.         PrintLn "@X0C▄▄▄▄▄▄▄▄@X04▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0C▄▄@X0B"
  146.         PrintLn "@X0A▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B▐@X1B ┌─────────────────────────────────────@X10┐@X19 @X08▌@X02▄▄@X0A▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B"
  147.         PrintLn "@X09▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B▐@X1B │ [@X1EF@X10]@X1FTP Site (File Transfer Protocol)@X1B @X10│@X19 @X08▌@X01▄▄@X09▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B"
  148.         PrintLn "@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B▐@X1B │ [@X1EW@X10]@X1FWW Site (World Wide Web)@X1B         @X10│@X19 @X08▌@X07▄▄@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B"
  149.         PrintLn "@X0E                @X0B  ▐@X1B │ [@X1EI@X10]@X1FRC Site (Internet Relay Chat)@X1B    @X10│@X19 @X08▌@X0B"
  150.         PrintLn "@X0E                @X0B  ▐@X1B │ [@X1ET@X10]@X1FelNet Site (Remote Logon)@X1B        @X10│@X19 @X08▌@X0B"
  151.         PrintLn "@X0E                @X0B  ▐@X1B │ [@X1EU@X10]@X1FseNet Site (Newsgroup List)@X1B      @X10│@X19 @X08▌@X0B"
  152.         PrintLn "@X0E                @X0B  ▐@X1B │ [@X1EE@X10]@X1FMail Site (Electronic Mail)@X1B      @X10│@X19 @X08▌@X0B"
  153.         PrintLn "@X0E                @X0B  ▐@X1B │ [@X1ES@X10]@X1Fearch for an Internet Site@X1B       @X10│@X19 @X08▌@X0B"
  154.         PrintLn "@X0E                @X0B  ▐@X1B │ [@X1ED@X10]@X1Fownload a Site Listing@X1B           @X10│@X19 @X08▌@X0B"
  155.         PrintLn "@X0E                @X0B  ▐@X1B │ [@X1EQ@X10]@X1Fuit and Exit back to the BBS@X1B     @X10│@X19 @X08▌@X0B"
  156.         PrintLn "@X0E                @X0B  ▐@X1B └@X10─────────────────────────────────────┘@X19 @X08▌@X0B"
  157.         PrintLn "@X00"
  158.         Print "@X0A                          Site List Command >>"
  159.         InputText " ", STRING006, 15, 1
  160.         If (Upper(STRING006) == "D") Then
  161.             Gosub LABEL051
  162.             AnsiPos 1, 10
  163.             PrintLn "@X0EPick the Internet Site Listing you would like to download."
  164.             PrintLn 
  165.             Print "@X0E[@X0FF@X0E]TP, [@X0FW@X0E]WW, [@X0FI@X0E]RC, [@X0FT@X0E]elNet, [@X0FU@X0E]seNet, [@X0FE@X0E]Mail, or [@X0FA@X0E]ll"
  166.             InputText " ", STRING007, 15, 1
  167.             If (Upper(STRING007) == "I") Then
  168.                 PrintLn "@X00"
  169.                 Download "IRC.TXT"
  170.                 Goto LABEL003
  171.             Endif
  172.             If (Upper(STRING007) == "F") Then
  173.                 PrintLn "@X00"
  174.                 Download "FTP.TXT"
  175.                 Goto LABEL003
  176.             Endif
  177.             If (Upper(STRING007) == "W") Then
  178.                 PrintLn "@X00"
  179.                 Download "WWW.TXT"
  180.                 Goto LABEL003
  181.             Endif
  182.             If (Upper(STRING007) == "T") Then
  183.                 PrintLn "@X00"
  184.                 Download "TELNET.TXT"
  185.                 Goto LABEL003
  186.             Endif
  187.             If (Upper(STRING007) == "U") Then
  188.                 PrintLn "@X00"
  189.                 Download "USENET.TXT"
  190.                 Goto LABEL003
  191.             Endif
  192.             If (Upper(STRING007) == "E") Then
  193.                 PrintLn "@X00"
  194.                 Download "EMAIL.TXT"
  195.                 Goto LABEL003
  196.             Endif
  197.             If (Upper(STRING007) == "A") Then
  198.                 PrintLn "@X00"
  199.                 Download "EMAIL.TXT FTP.TXT IRC.TXT TELNET.TXT USENET.TXT WWW.TXT"
  200.             Endif
  201.             :LABEL003
  202.             Continue
  203.         Endif
  204.         If (Upper(STRING006) == "I") Then
  205.             Gosub LABEL051
  206.             AnsiPos 1, 10
  207.             Print "@X0EWould you like to [@X0FA@X0E]dd a IRC site, or [@X0FL@X0E]ist all IRC sites"
  208.             InputText " ", STRING007, 15, 1
  209.             If (Upper(STRING007) == "A") Gosub LABEL004
  210.             If (Upper(STRING007) == "L") Gosub LABEL010
  211.             Continue
  212.         Endif
  213.         If (Upper(STRING006) == "F") Then
  214.             Gosub LABEL051
  215.             AnsiPos 1, 10
  216.             Print "@X0EWould you like to [@X0FA@X0E]dd a FTP site, or [@X0FL@X0E]ist all FTP sites"
  217.             InputText " ", STRING007, 15, 1
  218.             If (Upper(STRING007) == "A") Gosub LABEL005
  219.             If (Upper(STRING007) == "L") Gosub LABEL015
  220.             Continue
  221.         Endif
  222.         If (Upper(STRING006) == "W") Then
  223.             Gosub LABEL051
  224.             AnsiPos 1, 10
  225.             Print "@X0EWould you like to [@X0FA@X0E]dd a WWW site, or [@X0FL@X0E]ist all WWW sites"
  226.             InputText " ", STRING007, 15, 1
  227.             If (Upper(STRING007) == "A") Gosub LABEL006
  228.             If (Upper(STRING007) == "L") Gosub LABEL020
  229.             Continue
  230.         Endif
  231.         If (Upper(STRING006) == "T") Then
  232.             Gosub LABEL051
  233.             AnsiPos 1, 10
  234.             Print "@X0EWould you like to [@X0FA@X0E]dd a TelNet site, or [@X0FL@X0E]ist all TelNet sites"
  235.             InputText " ", STRING007, 15, 1
  236.             If (Upper(STRING007) == "A") Gosub LABEL007
  237.             If (Upper(STRING007) == "L") Gosub LABEL025
  238.             Continue
  239.         Endif
  240.         If (Upper(STRING006) == "U") Then
  241.             Gosub LABEL051
  242.             AnsiPos 1, 10
  243.             Print "@X0EWould you like to [@X0FA@X0E]dd a UseNet site, or [@X0FL@X0E]ist all UseNet sites"
  244.             InputText " ", STRING007, 15, 1
  245.             If (Upper(STRING007) == "A") Gosub LABEL008
  246.             If (Upper(STRING007) == "L") Gosub LABEL030
  247.             Continue
  248.         Endif
  249.         If (Upper(STRING006) == "E") Then
  250.             Gosub LABEL051
  251.             AnsiPos 1, 10
  252.             Print "@X0EWould you like to [@X0FA@X0E]dd a E-Mail site, or [@X0FL@X0E]ist all E-Mail sites"
  253.             InputText " ", STRING007, 15, 1
  254.             If (Upper(STRING007) == "A") Gosub LABEL009
  255.             If (Upper(STRING007) == "L") Gosub LABEL035
  256.             Continue
  257.         Endif
  258.         If (Upper(STRING006) == "S") Then
  259.             Gosub LABEL051
  260.             AnsiPos 1, 10
  261.             PrintLn "@X0EPick the Internet Site Listing you would like to search."
  262.             PrintLn 
  263.             Print "@X0E[@X0FF@X0E]TP, [@X0FW@X0E]WW, [@X0FI@X0E]RC, [@X0FT@X0E]elNet, [@X0FU@X0E]seNet, [@X0FE@X0E]Mail, or [@X0FA@X0E]ll"
  264.             InputText " ", STRING005, 15, 1
  265.             Gosub LABEL040
  266.         Endif
  267.     EndWhile
  268.     Return
  269.     :LABEL004
  270.     STRING009 = ""
  271.     STRING008 = ""
  272.     While (Upper(STRING008) <> "Y") Do
  273.         STRING008 = ""
  274.         Color 0
  275.         Cls
  276.         AnsiPos 1, 8
  277.         PrintLn "@X1B▌┌───────────────────────────────────────────────────────────────────────────@X10┐@X18▐@X1B"
  278.         PrintLn "@X1B▌│@X1E                            INTERNET RELAY CHAT                            @X10│@X18▐@X1B"
  279.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  280.         PrintLn "@X1B▌│@X1A          Enter the address and description of a IRC site to add           @X10│@X18▐@X1B"
  281.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  282.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  283.         PrintLn "@X1B▌└@X10───────────────────────────────────────────────────────────────────────────┘@X18▐@X07"
  284.         AnsiPos 3, 13
  285.         Print Space(75)
  286.         AnsiPos 3, 13
  287.         InputText " ", STRING009, 15, 70
  288.         AnsiPos 1, 16
  289.         Print "@X0EDid you enter this IRC site correctly [@X0FY@X0E]es, [@X0FN@X0E]o, [@X0FQ@X0E]uit"
  290.         InputText " ", STRING008, 15, 1
  291.         If (Upper(STRING008) == "Q") Break
  292.     EndWhile
  293.     If ((STRING009 <> "") && (Upper(STRING008) <> "Q")) Then
  294.         FAppend 1, PPEPath() + "IRC.TXT", 1, 2
  295.         FPutLn 1, "     " + STRING009
  296.         FClose 1
  297.         AnsiPos 1, 18
  298.         PrintLn "@X0BIRC Site Added!"
  299.         Log "IRC Site Added: " + STRING009, 0
  300.     Else
  301.         AnsiPos 1, 18
  302.         PrintLn "@X0CSkipped!"
  303.     Endif
  304.     AnsiPos 1, 20
  305.     Wait
  306.     Return
  307.     :LABEL005
  308.     STRING009 = ""
  309.     STRING008 = ""
  310.     While (Upper(STRING008) <> "Y") Do
  311.         STRING008 = ""
  312.         Color 0
  313.         Cls
  314.         AnsiPos 1, 8
  315.         PrintLn "@X1B▌┌───────────────────────────────────────────────────────────────────────────@X10┐@X18▐@X1B"
  316.         PrintLn "@X1B▌│@X1E                          FILE TRANSFER PROTOCOL                           @X10│@X18▐@X1B"
  317.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  318.         PrintLn "@X1B▌│@X1A          Enter the address and description of a FTP site to add           @X10│@X18▐@X1B"
  319.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  320.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  321.         PrintLn "@X1B▌└@X10───────────────────────────────────────────────────────────────────────────┘@X18▐@X07"
  322.         AnsiPos 3, 13
  323.         Print Space(75)
  324.         AnsiPos 3, 13
  325.         InputText " ", STRING009, 15, 70
  326.         AnsiPos 1, 16
  327.         Print "@X0EDid you enter this FTP site correctly [@X0FY@X0E]es, [@X0FN@X0E]o, [@X0FQ@X0E]uit"
  328.         InputText " ", STRING008, 15, 1
  329.         If (Upper(STRING008) == "Q") Break
  330.     EndWhile
  331.     If ((STRING009 <> "") && (Upper(STRING008) <> "Q")) Then
  332.         FAppend 1, PPEPath() + "FTP.TXT", 1, 2
  333.         FPutLn 1, "     " + STRING009
  334.         FClose 1
  335.         AnsiPos 1, 18
  336.         PrintLn "@X0BFTP Site Added!"
  337.         Log "FTP Site Added: " + STRING009, 0
  338.     Else
  339.         AnsiPos 1, 18
  340.         PrintLn "@X0CSkipped!"
  341.     Endif
  342.     AnsiPos 1, 20
  343.     Wait
  344.     Return
  345.     :LABEL006
  346.     STRING009 = ""
  347.     STRING008 = ""
  348.     While (Upper(STRING008) <> "Y") Do
  349.         STRING008 = ""
  350.         Color 0
  351.         Cls
  352.         AnsiPos 1, 8
  353.         PrintLn "@X1B▌┌───────────────────────────────────────────────────────────────────────────@X10┐@X18▐@X1B"
  354.         PrintLn "@X1B▌│@X1E                              WORLD WIDE WEB                               @X10│@X18▐@X1B"
  355.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  356.         PrintLn "@X1B▌│@X1A          Enter the address and description of a WWW site to add           @X10│@X18▐@X1B"
  357.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  358.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  359.         PrintLn "@X1B▌└@X10───────────────────────────────────────────────────────────────────────────┘@X18▐@X07"
  360.         AnsiPos 3, 13
  361.         Print Space(75)
  362.         AnsiPos 3, 13
  363.         InputText " ", STRING009, 15, 70
  364.         AnsiPos 1, 16
  365.         Print "@X0EDid you enter this WWW site correctly [@X0FY@X0E]es, [@X0FN@X0E]o, [@X0FQ@X0E]uit"
  366.         InputText " ", STRING008, 15, 1
  367.         If (Upper(STRING008) == "Q") Break
  368.     EndWhile
  369.     If ((STRING009 <> "") && (Upper(STRING008) <> "Q")) Then
  370.         FAppend 1, PPEPath() + "WWW.TXT", 1, 2
  371.         FPutLn 1, "     " + STRING009
  372.         FClose 1
  373.         AnsiPos 1, 18
  374.         PrintLn "@X0BWWW Site Added!"
  375.         Log "WWW Site Added: " + STRING009, 0
  376.     Else
  377.         AnsiPos 1, 18
  378.         PrintLn "@X0CSkipped!"
  379.     Endif
  380.     AnsiPos 1, 20
  381.     Wait
  382.     Return
  383.     :LABEL007
  384.     STRING009 = ""
  385.     STRING008 = ""
  386.     While (Upper(STRING008) <> "Y") Do
  387.         STRING008 = ""
  388.         Color 0
  389.         Cls
  390.         AnsiPos 1, 8
  391.         PrintLn "@X1B▌┌───────────────────────────────────────────────────────────────────────────@X10┐@X18▐@X1B"
  392.         PrintLn "@X1B▌│@X1E                            TELNET REMOTE LOGON                            @X10│@X18▐@X1B"
  393.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  394.         PrintLn "@X1B▌│@X1A         Enter the address and description of a TelNet site to add         @X10│@X18▐@X1B"
  395.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  396.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  397.         PrintLn "@X1B▌└@X10───────────────────────────────────────────────────────────────────────────┘@X18▐@X07"
  398.         AnsiPos 3, 13
  399.         Print Space(75)
  400.         AnsiPos 3, 13
  401.         InputText " ", STRING009, 15, 70
  402.         AnsiPos 1, 16
  403.         Print "@X0EDid you enter this TelNet site correctly [@X0FY@X0E]es, [@X0FN@X0E]o, [@X0FQ@X0E]uit"
  404.         InputText " ", STRING008, 15, 1
  405.         If (Upper(STRING008) == "Q") Break
  406.     EndWhile
  407.     If ((STRING009 <> "") && (Upper(STRING008) <> "Q")) Then
  408.         FAppend 1, PPEPath() + "TELNET.TXT", 1, 2
  409.         FPutLn 1, "     " + STRING009
  410.         FClose 1
  411.         AnsiPos 1, 18
  412.         PrintLn "@X0BTelNet Site Added!"
  413.         Log "TelNet Site Added: " + STRING009, 0
  414.     Else
  415.         AnsiPos 1, 18
  416.         PrintLn "@X0CSkipped!"
  417.     Endif
  418.     AnsiPos 1, 20
  419.     Wait
  420.     Return
  421.     :LABEL008
  422.     STRING009 = ""
  423.     STRING008 = ""
  424.     While (Upper(STRING008) <> "Y") Do
  425.         STRING008 = ""
  426.         Color 0
  427.         Cls
  428.         AnsiPos 1, 8
  429.         PrintLn "@X1B▌┌───────────────────────────────────────────────────────────────────────────@X10┐@X18▐@X1B"
  430.         PrintLn "@X1B▌│@X1E                             USENET NEWSGROUPS                             @X10│@X18▐@X1B"
  431.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  432.         PrintLn "@X1B▌│@X1A         Enter the address and description of a UseNet site to add         @X10│@X18▐@X1B"
  433.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  434.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  435.         PrintLn "@X1B▌└@X10───────────────────────────────────────────────────────────────────────────┘@X18▐@X07"
  436.         AnsiPos 3, 13
  437.         Print Space(75)
  438.         AnsiPos 3, 13
  439.         InputText " ", STRING009, 15, 70
  440.         AnsiPos 1, 16
  441.         Print "@X0EDid you enter this UseNet site correctly [@X0FY@X0E]es, [@X0FN@X0E]o, [@X0FQ@X0E]uit"
  442.         InputText " ", STRING008, 15, 1
  443.         If (Upper(STRING008) == "Q") Break
  444.     EndWhile
  445.     If ((STRING009 <> "") && (Upper(STRING008) <> "Q")) Then
  446.         FAppend 1, PPEPath() + "USENET.TXT", 1, 2
  447.         FPutLn 1, "     " + STRING009
  448.         FClose 1
  449.         AnsiPos 1, 18
  450.         PrintLn "@X0BUseNet Site Added!"
  451.         Log "UseNet Site Added: " + STRING009, 0
  452.     Else
  453.         AnsiPos 1, 18
  454.         PrintLn "@X0CSkipped!"
  455.     Endif
  456.     AnsiPos 1, 20
  457.     Wait
  458.     Return
  459.     :LABEL009
  460.     STRING009 = ""
  461.     STRING008 = ""
  462.     While (Upper(STRING008) <> "Y") Do
  463.         STRING008 = ""
  464.         Color 0
  465.         Cls
  466.         AnsiPos 1, 8
  467.         PrintLn "@X1B▌┌───────────────────────────────────────────────────────────────────────────@X10┐@X18▐@X1B"
  468.         PrintLn "@X1B▌│@X1E                              ELECTRONIC MAIL                              @X10│@X18▐@X1B"
  469.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  470.         PrintLn "@X1B▌│@X1A        Enter the address and description of an E-Mail site to add         @X10│@X18▐@X1B"
  471.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  472.         PrintLn "@X1B▌│@X1E                                                                           @X10│@X18▐@X1B"
  473.         PrintLn "@X1B▌└@X10───────────────────────────────────────────────────────────────────────────┘@X18▐@X07"
  474.         AnsiPos 3, 13
  475.         Print Space(75)
  476.         AnsiPos 3, 13
  477.         InputText " ", STRING009, 15, 70
  478.         AnsiPos 1, 16
  479.         Print "@X0EDid you enter this E-Mail site correctly [@X0FY@X0E]es, [@X0FN@X0E]o, [@X0FQ@X0E]uit"
  480.         InputText " ", STRING008, 15, 1
  481.         If (Upper(STRING008) == "Q") Break
  482.     EndWhile
  483.     If ((STRING009 <> "") && (Upper(STRING008) <> "Q")) Then
  484.         FAppend 1, PPEPath() + "EMAIL.TXT", 1, 2
  485.         FPutLn 1, "     " + STRING009
  486.         FClose 1
  487.         AnsiPos 1, 18
  488.         PrintLn "@X0BE-Mail Site Added!"
  489.         Log "E-Mail Site Added: " + STRING009, 0
  490.     Else
  491.         AnsiPos 1, 18
  492.         PrintLn "@X0CSkipped!"
  493.     Endif
  494.     AnsiPos 1, 20
  495.     Wait
  496.     Return
  497.     :LABEL010
  498.     INTEGER008 = 0
  499.     INTEGER009 = 0
  500.     Color 0
  501.     Cls
  502.     PrintLn "@X0B▐@X1B ┌─────────────────────────────────────────────────────────────────────────@X10┐@X1B @X08▌@X0B"
  503.     PrintLn "@X0B▐@X1B │@X1E                           INTERNET RELAY CHAT                           @X10│@X1B @X08▌@X0B"
  504.     PrintLn "@X0B▐@X1B └@X10─────────────────────────────────────────────────────────────────────────┘@X1B @X08▌@X0B"
  505.     PrintLn "@X00"
  506.     Color 15
  507.     FOpen 1, PPEPath() + "IRC.TXT", 0, 2
  508.     FGet 1, STRING009
  509.     :LABEL011
  510.     If (Ferr(1)) Goto LABEL012
  511.     INTEGER008 = INTEGER008 + 1
  512.     TSTRING018(INTEGER008) = STRING009
  513.     If (INTEGER008 > 249) Goto LABEL012
  514.     FGet 1, STRING009
  515.     Goto LABEL011
  516.     :LABEL012
  517.     If (INTEGER008 > 249) Then
  518.         FGet 1, STRING009
  519.         :LABEL013
  520.         If (Ferr(1)) Goto LABEL014
  521.         INTEGER009 = INTEGER009 + 1
  522.         TSTRING019(INTEGER009) = STRING009
  523.         If (INTEGER009 > 249) Goto LABEL014
  524.         FGet 1, STRING009
  525.         Goto LABEL013
  526.     Endif
  527.     :LABEL014
  528.     FClose 1
  529.     For INTEGER003 = 1 To INTEGER008
  530.         PrintLn TSTRING018(INTEGER003)
  531.     Next
  532.     If (INTEGER008 > 249) Then
  533.         For INTEGER003 = 1 To INTEGER009
  534.             PrintLn TSTRING019(INTEGER003)
  535.         Next
  536.     Endif
  537.     PrintLn "@X00"
  538.     Wait
  539.     Return
  540.     :LABEL015
  541.     INTEGER008 = 0
  542.     INTEGER009 = 0
  543.     Color 0
  544.     Cls
  545.     PrintLn "@X0B▐@X1B ┌─────────────────────────────────────────────────────────────────────────@X10┐@X1B @X08▌@X0B"
  546.     PrintLn "@X0B▐@X1B │@X1E                         FILE TRANSFER PROTOCOL                          @X10│@X1B @X08▌@X0B"
  547.     PrintLn "@X0B▐@X1B └@X10─────────────────────────────────────────────────────────────────────────┘@X1B @X08▌@X0B"
  548.     PrintLn "@X00"
  549.     Color 15
  550.     FOpen 1, PPEPath() + "FTP.TXT", 0, 2
  551.     FGet 1, STRING009
  552.     :LABEL016
  553.     If (Ferr(1)) Goto LABEL017
  554.     INTEGER008 = INTEGER008 + 1
  555.     TSTRING018(INTEGER008) = STRING009
  556.     If (INTEGER008 > 249) Goto LABEL017
  557.     FGet 1, STRING009
  558.     Goto LABEL016
  559.     :LABEL017
  560.     If (INTEGER008 > 249) Then
  561.         FGet 1, STRING009
  562.         :LABEL018
  563.         If (Ferr(1)) Goto LABEL019
  564.         INTEGER009 = INTEGER009 + 1
  565.         TSTRING019(INTEGER009) = STRING009
  566.         If (INTEGER009 > 249) Goto LABEL019
  567.         FGet 1, STRING009
  568.         Goto LABEL018
  569.     Endif
  570.     :LABEL019
  571.     FClose 1
  572.     For INTEGER003 = 1 To INTEGER008
  573.         PrintLn TSTRING018(INTEGER003)
  574.     Next
  575.     If (INTEGER008 > 249) Then
  576.         For INTEGER003 = 1 To INTEGER009
  577.             PrintLn TSTRING019(INTEGER003)
  578.         Next
  579.     Endif
  580.     PrintLn "@X00"
  581.     Wait
  582.     Return
  583.     :LABEL020
  584.     INTEGER008 = 0
  585.     INTEGER009 = 0
  586.     Color 0
  587.     Cls
  588.     PrintLn "@X0B▐@X1B ┌─────────────────────────────────────────────────────────────────────────@X10┐@X1B @X08▌@X0B"
  589.     PrintLn "@X0B▐@X1B │@X1E                             WORLD WIDE WEB                              @X10│@X1B @X08▌@X0B"
  590.     PrintLn "@X0B▐@X1B └@X10─────────────────────────────────────────────────────────────────────────┘@X1B @X08▌@X0B"
  591.     PrintLn "@X00"
  592.     Color 15
  593.     FOpen 1, PPEPath() + "WWW.TXT", 0, 2
  594.     FGet 1, STRING009
  595.     :LABEL021
  596.     If (Ferr(1)) Goto LABEL022
  597.     INTEGER008 = INTEGER008 + 1
  598.     TSTRING018(INTEGER008) = STRING009
  599.     If (INTEGER008 > 249) Goto LABEL022
  600.     FGet 1, STRING009
  601.     Goto LABEL021
  602.     :LABEL022
  603.     If (INTEGER008 > 249) Then
  604.         FGet 1, STRING009
  605.         :LABEL023
  606.         If (Ferr(1)) Goto LABEL024
  607.         INTEGER009 = INTEGER009 + 1
  608.         TSTRING019(INTEGER009) = STRING009
  609.         If (INTEGER009 > 249) Goto LABEL024
  610.         FGet 1, STRING009
  611.         Goto LABEL023
  612.     Endif
  613.     :LABEL024
  614.     FClose 1
  615.     For INTEGER003 = 1 To INTEGER008
  616.         PrintLn TSTRING018(INTEGER003)
  617.     Next
  618.     If (INTEGER008 > 249) Then
  619.         For INTEGER003 = 1 To INTEGER009
  620.             PrintLn TSTRING019(INTEGER003)
  621.         Next
  622.     Endif
  623.     PrintLn "@X00"
  624.     Wait
  625.     Return
  626.     :LABEL025
  627.     INTEGER008 = 0
  628.     INTEGER009 = 0
  629.     Color 0
  630.     Cls
  631.     PrintLn "@X0B▐@X1B ┌─────────────────────────────────────────────────────────────────────────@X10┐@X1B @X08▌@X0B"
  632.     PrintLn "@X0B▐@X1B │@X1E                           TELNET REMOTE LOGON                           @X10│@X1B @X08▌@X0B"
  633.     PrintLn "@X0B▐@X1B └@X10─────────────────────────────────────────────────────────────────────────┘@X1B @X08▌@X0B"
  634.     PrintLn "@X00"
  635.     Color 15
  636.     FOpen 1, PPEPath() + "TELNET.TXT", 0, 2
  637.     FGet 1, STRING009
  638.     :LABEL026
  639.     If (Ferr(1)) Goto LABEL027
  640.     INTEGER008 = INTEGER008 + 1
  641.     TSTRING018(INTEGER008) = STRING009
  642.     If (INTEGER008 > 249) Goto LABEL027
  643.     FGet 1, STRING009
  644.     Goto LABEL026
  645.     :LABEL027
  646.     If (INTEGER008 > 249) Then
  647.         FGet 1, STRING009
  648.         :LABEL028
  649.         If (Ferr(1)) Goto LABEL029
  650.         INTEGER009 = INTEGER009 + 1
  651.         TSTRING019(INTEGER009) = STRING009
  652.         If (INTEGER009 > 249) Goto LABEL029
  653.         FGet 1, STRING009
  654.         Goto LABEL028
  655.     Endif
  656.     :LABEL029
  657.     FClose 1
  658.     For INTEGER003 = 1 To INTEGER008
  659.         PrintLn TSTRING018(INTEGER003)
  660.     Next
  661.     If (INTEGER008 > 249) Then
  662.         For INTEGER003 = 1 To INTEGER009
  663.             PrintLn TSTRING019(INTEGER003)
  664.         Next
  665.     Endif
  666.     PrintLn "@X00"
  667.     Wait
  668.     Return
  669.     :LABEL030
  670.     INTEGER008 = 0
  671.     INTEGER009 = 0
  672.     Color 0
  673.     Cls
  674.     PrintLn "@X0B▐@X1B ┌─────────────────────────────────────────────────────────────────────────@X10┐@X1B @X08▌@X0B"
  675.     PrintLn "@X0B▐@X1B │@X1E                            USENET NEWSGROUPS                            @X10│@X1B @X08▌@X0B"
  676.     PrintLn "@X0B▐@X1B └@X10─────────────────────────────────────────────────────────────────────────┘@X1B @X08▌@X0B"
  677.     PrintLn "@X00"
  678.     Color 15
  679.     FOpen 1, PPEPath() + "USENET.TXT", 0, 2
  680.     FGet 1, STRING009
  681.     :LABEL031
  682.     If (Ferr(1)) Goto LABEL032
  683.     INTEGER008 = INTEGER008 + 1
  684.     TSTRING018(INTEGER008) = STRING009
  685.     If (INTEGER008 > 249) Goto LABEL032
  686.     FGet 1, STRING009
  687.     Goto LABEL031
  688.     :LABEL032
  689.     If (INTEGER008 > 249) Then
  690.         FGet 1, STRING009
  691.         :LABEL033
  692.         If (Ferr(1)) Goto LABEL034
  693.         INTEGER009 = INTEGER009 + 1
  694.         TSTRING019(INTEGER009) = STRING009
  695.         If (INTEGER009 > 249) Goto LABEL034
  696.         FGet 1, STRING009
  697.         Goto LABEL033
  698.     Endif
  699.     :LABEL034
  700.     FClose 1
  701.     For INTEGER003 = 1 To INTEGER008
  702.         PrintLn TSTRING018(INTEGER003)
  703.     Next
  704.     If (INTEGER008 > 249) Then
  705.         For INTEGER003 = 1 To INTEGER009
  706.             PrintLn TSTRING019(INTEGER003)
  707.         Next
  708.     Endif
  709.     PrintLn "@X00"
  710.     Wait
  711.     Return
  712.     :LABEL035
  713.     INTEGER008 = 0
  714.     INTEGER009 = 0
  715.     Color 0
  716.     Cls
  717.     PrintLn "@X0B▐@X1B ┌─────────────────────────────────────────────────────────────────────────@X10┐@X1B @X08▌@X0B"
  718.     PrintLn "@X0B▐@X1B │@X1E                             ELECTRONIC MAIL                             @X10│@X1B @X08▌@X0B"
  719.     PrintLn "@X0B▐@X1B └@X10─────────────────────────────────────────────────────────────────────────┘@X1B @X08▌@X0B"
  720.     PrintLn "@X00"
  721.     Color 15
  722.     FOpen 1, PPEPath() + "EMAIL.TXT", 0, 2
  723.     FGet 1, STRING009
  724.     :LABEL036
  725.     If (Ferr(1)) Goto LABEL037
  726.     INTEGER008 = INTEGER008 + 1
  727.     TSTRING018(INTEGER008) = STRING009
  728.     If (INTEGER008 > 249) Goto LABEL037
  729.     FGet 1, STRING009
  730.     Goto LABEL036
  731.     :LABEL037
  732.     If (INTEGER008 > 249) Then
  733.         FGet 1, STRING009
  734.         :LABEL038
  735.         If (Ferr(1)) Goto LABEL039
  736.         INTEGER009 = INTEGER009 + 1
  737.         TSTRING019(INTEGER009) = STRING009
  738.         If (INTEGER009 > 249) Goto LABEL039
  739.         FGet 1, STRING009
  740.         Goto LABEL038
  741.     Endif
  742.     :LABEL039
  743.     FClose 1
  744.     For INTEGER003 = 1 To INTEGER008
  745.         PrintLn TSTRING018(INTEGER003)
  746.     Next
  747.     If (INTEGER008 > 249) Then
  748.         For INTEGER003 = 1 To INTEGER009
  749.             PrintLn TSTRING019(INTEGER003)
  750.         Next
  751.     Endif
  752.     PrintLn "@X00"
  753.     Wait
  754.     Return
  755.     :LABEL040
  756.     INTEGER007 = 0
  757.     STRING010 = "NO"
  758.     STRING013 = ""
  759.     STRING012 = ""
  760.     STRING011 = ""
  761.     Select Case (Upper(STRING005))
  762.         Case "I"
  763.             AnsiPos 1, 14
  764.             Print "@X0EEnter a full or partial IRC site to search for:"
  765.             InputText " ", STRING011, 15, 30
  766.             If (STRING011 <> "") Then
  767.                 STRING012 = PPEPath() + "IRC.TXT"
  768.                 Gosub LABEL048
  769.                 If (STRING010 == "YES") Then
  770.                     AnsiPos 1, 16
  771.                     Print "@X0F", INTEGER007
  772.                     PrintLn "@X0A matches found in IRC site listing!"
  773.                     AnsiPos 1, 18
  774.                     InputYN "Would you like to view these sites [@X0FY@X0E/@X0FN@X0E]", STRING013, 14
  775.                     If (Upper(STRING013) == YesChar()) Then
  776.                         Color 0
  777.                         Cls
  778.                         PrintLn "@X0E     IRC sites found matching your search string are as follows:"
  779.                         PrintLn "@X00"
  780.                         Gosub LABEL052
  781.                         PrintLn "@X00"
  782.                         Wait
  783.                     Endif
  784.                     Goto LABEL041
  785.                 Endif
  786.                 AnsiPos 1, 16
  787.                 PrintLn "@X0CNo matches were found!"
  788.                 PrintLn "@X00"
  789.                 Wait
  790.             Endif
  791.             :LABEL041
  792.         Case "F"
  793.             AnsiPos 1, 14
  794.             Print "@X0EEnter a full or partial FTP site to search for:"
  795.             InputText " ", STRING011, 15, 30
  796.             If (STRING011 <> "") Then
  797.                 STRING012 = PPEPath() + "FTP.TXT"
  798.                 Gosub LABEL048
  799.                 If (STRING010 == "YES") Then
  800.                     AnsiPos 1, 16
  801.                     Print "@X0F", INTEGER007
  802.                     PrintLn "@X0A matches found in FTP site listing!"
  803.                     AnsiPos 1, 18
  804.                     InputYN "Would you like to view these sites [@X0FY@X0E/@X0FN@X0E]", STRING013, 14
  805.                     If (Upper(STRING013) == YesChar()) Then
  806.                         Color 0
  807.                         Cls
  808.                         PrintLn "@X0E     FTP sites found matching your search string are as follows:"
  809.                         PrintLn "@X00"
  810.                         Gosub LABEL052
  811.                         PrintLn "@X00"
  812.                         Wait
  813.                     Endif
  814.                     Goto LABEL042
  815.                 Endif
  816.                 AnsiPos 1, 16
  817.                 PrintLn "@X0CNo matches were found!"
  818.                 PrintLn "@X00"
  819.                 Wait
  820.             Endif
  821.             :LABEL042
  822.         Case "W"
  823.             AnsiPos 1, 14
  824.             Print "@X0EEnter a full or partial WWW site to search for:"
  825.             InputText " ", STRING011, 15, 30
  826.             If (STRING011 <> "") Then
  827.                 STRING012 = PPEPath() + "WWW.TXT"
  828.                 Gosub LABEL048
  829.                 If (STRING010 == "YES") Then
  830.                     AnsiPos 1, 16
  831.                     Print "@X0F", INTEGER007
  832.                     PrintLn "@X0A matches found in WWW site listing!"
  833.                     AnsiPos 1, 18
  834.                     InputYN "Would you like to view these sites [@X0FY@X0E/@X0FN@X0E]", STRING013, 14
  835.                     If (Upper(STRING013) == YesChar()) Then
  836.                         Color 0
  837.                         Cls
  838.                         PrintLn "@X0E     WWW sites found matching your search string are as follows:"
  839.                         PrintLn "@X00"
  840.                         Gosub LABEL052
  841.                         PrintLn "@X00"
  842.                         Wait
  843.                     Endif
  844.                     Goto LABEL043
  845.                 Endif
  846.                 AnsiPos 1, 16
  847.                 PrintLn "@X0CNo matches were found!"
  848.                 PrintLn "@X00"
  849.                 Wait
  850.             Endif
  851.             :LABEL043
  852.         Case "T"
  853.             AnsiPos 1, 14
  854.             Print "@X0EEnter a full or partial TelNet site to search for:"
  855.             InputText " ", STRING011, 15, 30
  856.             If (STRING011 <> "") Then
  857.                 STRING012 = PPEPath() + "TELNET.TXT"
  858.                 Gosub LABEL048
  859.                 If (STRING010 == "YES") Then
  860.                     AnsiPos 1, 16
  861.                     Print "@X0F", INTEGER007
  862.                     PrintLn "@X0A matches found in TelNet site listing!"
  863.                     AnsiPos 1, 18
  864.                     InputYN "Would you like to view these sites [@X0FY@X0E/@X0FN@X0E]", STRING013, 14
  865.                     If (Upper(STRING013) == YesChar()) Then
  866.                         Color 0
  867.                         Cls
  868.                         PrintLn "@X0E     TelNet sites found matching your search string are as follows:"
  869.                         PrintLn "@X00"
  870.                         Gosub LABEL052
  871.                         PrintLn "@X00"
  872.                         Wait
  873.                     Endif
  874.                     Goto LABEL044
  875.                 Endif
  876.                 AnsiPos 1, 16
  877.                 PrintLn "@X0CNo matches were found!"
  878.                 PrintLn "@X00"
  879.                 Wait
  880.             Endif
  881.             :LABEL044
  882.         Case "U"
  883.             AnsiPos 1, 14
  884.             Print "@X0EEnter a full or partial UseNet site to search for:"
  885.             InputText " ", STRING011, 15, 30
  886.             If (STRING011 <> "") Then
  887.                 STRING012 = PPEPath() + "USENET.TXT"
  888.                 Gosub LABEL048
  889.                 If (STRING010 == "YES") Then
  890.                     AnsiPos 1, 16
  891.                     Print "@X0F", INTEGER007
  892.                     PrintLn "@X0A matches found in UseNet site listing!"
  893.                     AnsiPos 1, 18
  894.                     InputYN "Would you like to view these sites [@X0FY@X0E/@X0FN@X0E]", STRING013, 14
  895.                     If (Upper(STRING013) == YesChar()) Then
  896.                         Color 0
  897.                         Cls
  898.                         PrintLn "@X0E     UseNet sites found matching your search string are as follows:"
  899.                         PrintLn "@X00"
  900.                         Gosub LABEL052
  901.                         PrintLn "@X00"
  902.                         Wait
  903.                     Endif
  904.                     Goto LABEL045
  905.                 Endif
  906.                 AnsiPos 1, 16
  907.                 PrintLn "@X0CNo matches were found!"
  908.                 PrintLn "@X00"
  909.                 Wait
  910.             Endif
  911.             :LABEL045
  912.         Case "E"
  913.             AnsiPos 1, 14
  914.             Print "@X0EEnter a full or partial E-Mail site to search for:"
  915.             InputText " ", STRING011, 15, 30
  916.             If (STRING011 <> "") Then
  917.                 STRING012 = PPEPath() + "EMAIL.TXT"
  918.                 Gosub LABEL048
  919.                 If (STRING010 == "YES") Then
  920.                     AnsiPos 1, 16
  921.                     Print "@X0F", INTEGER007
  922.                     PrintLn "@X0A matches found in E-Mail site listing!"
  923.                     AnsiPos 1, 18
  924.                     InputYN "Would you like to view these sites [@X0FY@X0E/@X0FN@X0E]", STRING013, 14
  925.                     If (Upper(STRING013) == YesChar()) Then
  926.                         Color 0
  927.                         Cls
  928.                         PrintLn "@X0E     E-Mail sites found matching your search string are as follows:"
  929.                         PrintLn "@X00"
  930.                         Gosub LABEL052
  931.                         PrintLn "@X00"
  932.                         Wait
  933.                     Endif
  934.                     Goto LABEL046
  935.                 Endif
  936.                 AnsiPos 1, 16
  937.                 PrintLn "@X0CNo matches were found!"
  938.                 PrintLn "@X00"
  939.                 Wait
  940.             Endif
  941.             :LABEL046
  942.         Case "A"
  943.             AnsiPos 1, 14
  944.             Print "@X0EEnter a full or partial Internet site to search for:"
  945.             InputText " ", STRING011, 15, 30
  946.         Case ""
  947.             INTEGER006 = 1
  948.             While (INTEGER006 < 7) Do
  949.                 STRING013 = ""
  950.                 INTEGER007 = 0
  951.                 STRING010 = "NO"
  952.                 If (INTEGER006 == 1) Then
  953.                     STRING012 = PPEPath() + "EMAIL.TXT"
  954.                     STRING004 = "E-Mail"
  955.                 Endif
  956.                 If (INTEGER006 == 2) Then
  957.                     STRING012 = PPEPath() + "FTP.TXT"
  958.                     STRING004 = "FTP"
  959.                 Endif
  960.                 If (INTEGER006 == 3) Then
  961.                     STRING012 = PPEPath() + "IRC.TXT"
  962.                     STRING004 = "IRC"
  963.                 Endif
  964.                 If (INTEGER006 == 4) Then
  965.                     STRING012 = PPEPath() + "TELNET.TXT"
  966.                     STRING004 = "TelNet"
  967.                 Endif
  968.                 If (INTEGER006 == 5) Then
  969.                     STRING012 = PPEPath() + "USENET.TXT"
  970.                     STRING004 = "UseNet"
  971.                 Endif
  972.                 If (INTEGER006 == 6) Then
  973.                     STRING012 = PPEPath() + "WWW.TXT"
  974.                     STRING004 = "WWW"
  975.                 Endif
  976.                 Gosub LABEL048
  977.                 If (STRING010 == "YES") Then
  978.                     Color 0
  979.                     Cls
  980.                     AnsiPos 20, 11
  981.                     Print "@X0F", INTEGER007
  982.                     PrintLn "@X0A matches found in ", STRING004, " site listing!"
  983.                     AnsiPos 20, 13
  984.                     InputYN "Would you like to view these sites [@X0FY@X0E/@X0FN@X0E]", STRING013, 14
  985.                     If (Upper(STRING013) == YesChar()) Then
  986.                         Color 0
  987.                         Cls
  988.                         PrintLn "@X0E     ", STRING004, " sites found matching your search string are as follows:"
  989.                         PrintLn "@X00"
  990.                         Gosub LABEL052
  991.                         PrintLn "@X00"
  992.                         Wait
  993.                     Endif
  994.                     Goto LABEL047
  995.                 Endif
  996.                 Color 0
  997.                 Cls
  998.                 AnsiPos 20, 12
  999.                 PrintLn "@X0CNo matches found in ", STRING004, " site listing."
  1000.                 PrintLn "@X00"
  1001.                 Wait
  1002.                 :LABEL047
  1003.                 INTEGER006 = INTEGER006 + 1
  1004.             EndWhile
  1005.     End Select
  1006.     Return
  1007.     :LABEL048
  1008.     FOpen 1, STRING012, 0, 2
  1009.     FGet 1, STRING009
  1010.     :LABEL049
  1011.     If (Ferr(1)) Goto LABEL050
  1012.     INTEGER005 = 0
  1013.     INTEGER005 = InStr(Upper(STRING009), Upper(STRING011))
  1014.     If (INTEGER005 > 0) Then
  1015.         STRING010 = "YES"
  1016.         INTEGER007 = INTEGER007 + 1
  1017.         TSTRING017(INTEGER007) = STRING009
  1018.         If (INTEGER007 > 99) Goto LABEL050
  1019.     Endif
  1020.     FGet 1, STRING009
  1021.     Goto LABEL049
  1022.     :LABEL050
  1023.     FClose 1
  1024.     Return
  1025.     :LABEL051
  1026.     For INTEGER004 = 8 To 20
  1027.         AnsiPos 1, INTEGER004
  1028.         Color 0
  1029.         ClrEol
  1030.     Next
  1031.     Return
  1032.     :LABEL052
  1033.     Color 15
  1034.     For INTEGER003 = 1 To INTEGER007
  1035.         PrintLn TSTRING017(INTEGER003)
  1036.     Next
  1037.     Return
  1038.  
  1039. ;------------------------------------------------------------------------------
  1040. ;
  1041. ; Usage report (before postprocessing)
  1042. ;
  1043. ; ■ Statements used :
  1044. ;
  1045. ;    2       End
  1046. ;    23      Cls
  1047. ;    1       ClrEol
  1048. ;    27      Wait
  1049. ;    31      Color 
  1050. ;    192     Goto 
  1051. ;    144     Let 
  1052. ;    40      Print 
  1053. ;    170     PrintLn 
  1054. ;    136     If 
  1055. ;    8       FOpen 
  1056. ;    6       FAppend 
  1057. ;    14      FClose 
  1058. ;    26      FGet 
  1059. ;    6       FPutLn 
  1060. ;    7       Log 
  1061. ;    7       InputYN 
  1062. ;    36      Gosub 
  1063. ;    17      Return
  1064. ;    1       Delay 
  1065. ;    28      InputText 
  1066. ;    85      AnsiPos 
  1067. ;    7       Download 
  1068. ;    3       EndProc
  1069. ;
  1070. ;
  1071. ; ■ Functions used :
  1072. ;
  1073. ;    65      +
  1074. ;    60      ==
  1075. ;    27      <>
  1076. ;    15      <
  1077. ;    14      <=
  1078. ;    26      >
  1079. ;    28      >=
  1080. ;    104     !
  1081. ;    34      &&
  1082. ;    14      ||
  1083. ;    62      Upper()
  1084. ;    6       Space()
  1085. ;    13      Ferr()
  1086. ;    1       InStr()
  1087. ;    7       YesChar()
  1088. ;    25      PPEPath()
  1089. ;    1       AnsiOn()
  1090. ;    1       GetDrive()
  1091. ;    1       FTell()
  1092. ;    1       Os()
  1093. ;
  1094. ;------------------------------------------------------------------------------
  1095. ;
  1096. ; Analysis flags : No flag
  1097. ;
  1098. ;------------------------------------------------------------------------------
  1099. ;
  1100. ; Postprocessing report
  1101. ;
  1102. ;    14      For/Next
  1103. ;    8       While/EndWhile
  1104. ;    61      If/Then or If/Then/Else
  1105. ;    1       Select Case
  1106. ;
  1107. ;------------------------------------------------------------------------------
  1108. ;                 AEGiS Corp - Break the routines, code against the machines!
  1109. ;------------------------------------------------------------------------------
  1110.